home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
018a
/
apmac10.zip
/
ENV.SMM
< prev
next >
Wrap
INI File
|
1991-12-30
|
4KB
|
427 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
PostScript Printer
[lang]
1
[desc]
Quickly print an evelope from a shaded address.
689045243
3
688344439
34
1
91
645
3
3
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[tag]
Body Text
2
[fnt]
Courier
200
0
32768
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Function
3
[fnt]
Courier
200
0
32769
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Header
4
[fnt]
Tms Rmn
200
0
49153
[algn]
4
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Header
0
0
[lay]
Standard
513
[rght]
15840
12240
1
720
1080
1
1252
1440
2
1
0
1
1
2
1
720
10800
14
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
1
9360
1
10080
[hrght]
[lyfrm]
1
11200
0
0
12240
1252
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1252
12240
1
1440
0
1
360
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
@Header@<:X3,0;GetDocInfo$(1)>ENV.SMM<:X~3,0;GetDocInfo$(1)>
@Header@<:X3,0;Description>Quickly print an evelope from a shaded address.<:X~3,0;Description>
@Header@By: Todd E. Fuder, <:X3,0;EditDate %Dd>Thursday, October 24, 1991<:X~3,0;EditDate %Dd> at
<:X3,0;EditDate %T6>4:17 pm<:X~3,0;EditDate %T6>
@Header@
>
[frght]
[lyfrm]
1
13248
0
14760
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
360
1
14940
1440
0
1
0
1
1
0
1
1440
10800
0
[txt]
@Header@Revision Number <:X3,0;NumEdits>1<:X~3,0;NumEdits>
@Header@<:P10,0,Page > of <:X3,16384;NumPages>1<:X~3,16384;NumPages>
>
[elay]
[l1]
0
[edoc]
@Function@<:#202,10080>FUNCTION Envelope()
singlestep(0)
<:#202,10080>DEFSTR Address;
<:#202,10080>EnvStyle = "~ENV.STY" 'Envelope Style Sheet to Use
WHILE ("" = Assign(&Address, CurShade$())) 'Prompt while address not shaded
<:#202,10080> UserControl("Shade the address, then choose Resume...")
<:#202,10080>WEND
<:#202,10080>Copy() 'Copy address to clipboard
<:#202,10080>New(EnvStyle, 1, 0) 'Open new envelope style sheet
<:#202,10080>Paste() 'Paste address from clipboard
<:#202,10080>FilePrint(1, 1, 9999, 1537) 'Print envelope
<:#202,10080>FileChanged(1, 0) 'Make file changed flag "clean"
<:#202,10080>FileClose() 'Close envelope window
@Function@<:#202,10080>END FUNCTION
>
[Embedded]
00003434
>
[macsum] 1
Envelope 0 0 3 0
[macse]
14 Envelope
0 4 0
17 2
29 1 Address
17 3
29 2 EnvStyle
7 "~ENV.STY"
8 2
17 4
7 ""
0 24
13
0 805 &1 [X]
13
18 0
11 00000206
17 5
0 7 "Shade the address, then choose Resume..."
10 00000080
17 7
2 154 1
17 8
2 101 1 "{2}" 1 0
17 9
2 155 1
17 10
2 111 1 1 1 9999 1537
17 11
0 34 1 0
17 12
2 147 1
6 0
15
17 13
9
00003459
